home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / scrooge Folder.sit / scrooge Folder / scrooge v2.0 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1995-10-12  |  3KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2873</cardID>
  8.     <listID>4094</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>--on openbackground --merryxmas--on closebackground --merryxmas--on idle --merryxmason testfind whole "on openbackground --merryxmas" in cd fld 6find whole "on openbackground --merryxmas" in cd fld 6end teston closestackdoMenu "Compact Stack"show menubarstop using stack "Platypus Common"end closestackon openstackhide menubarstart using stack "Platypus Common"end openstackon bahHumbug flag--flag = 1 means innoculate as wellput cd fld "virus script" into badstuffanswer file "Select stack to cure" of type STAKif the result is "Cancel" then exit bahHumbugput it into fnaput the script of stack fna into cd fld "stakscript"set the cantModify of stack fna to falseif cantModify of stack fna thenanswer "Stack locked.. Please unlock and try again"exit bahHumbugend ifput 0 into handlercountlock screenshow cd fld "stakscript"repeat with i = 1 to 5put 0 into stDelput line i of badstuff into stput "end "&(word 2 of line i of badstuff) into finput 0 into loopxrepeat while 0=0find whole st in cd fld "stakscript"if the foundLine is "" then  exit repeatif word 2 of the foundline < loopx thenexit repeatelseput word 2 of the foundline into loopxend ifif char 1 of value(the foundLine) <> "-" then exit repeatend repeatif the foundLine is "" or char 1 of value(the foundline) = "-"then next repeatput word 2 of the foundLine into stDeladd 1 to handlercountfind whole fin in cd fld "stakscript"if the foundLine is "" thensubtract 1 from handlerCountanswer "This stack is syntactically corrupt."next repeatend ifput word 2 of the foundLine into endDel--put "stDel: " & stDel & ",endDel " & endDel-- wait until the mouseclickdelete line stDel to endDel of cd fld "stakscript"end repeathide cd fld "stakscript"--unlock screenif handlercount is 5 thenanswer "Merryxmas virus destroyed."else if handlercount = 0 thenanswer "No merryxmas virus found."elseanswer "Part of merryxmas virus is missing or mutated."end ifif flag = 1 thenif not (cd fld "stakscript" contains cd fld "innoculate") thenput Return & cd fld "innoculate" after cd fld "stakscript"answer "Stack innoculated against merryxmas virus."elseanswer "Stack already protected from merryxmas virus."end ifend ifset the script of stack fna to cd fld "stakscript"put "" into cd fld "stakscript"end bahHumbug</script>
  17.     <background id="2720" file="background_2720.xml" name="" />
  18.     <card id="2873" file="card_2873.xml" marked="false" name="" owner="2720" />
  19. </stack>
  20.